Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Function HyperJump(ByVal URL As String) As Long
If MsgBox(Mid(News, 1, InStr(1, News, App.Major & "." & App.Minor) - 9), vbYesNo, "You can update from version " & App.Major & "." & App.Minor & " to version " & Version) = vbYes Then
HyperJump "http://server.com/user/application.zip" 'this will run default download manager (probable also open default browser)
End If
Skip:
Me.MousePointer = 0
Exit Sub
ErrorMessage:
Me.MousePointer = 0
MsgBox "An error has occured. Update failed." & Chr(10) & "You must download new version of this application manually at http://server.com.", vbCritical